home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-NXCH.SCR < prev    next >
Text File  |  1988-12-30  |  1KB  |  51 lines
  1. ;  GTPCP\V4.4 - PCP-NXCH SCRIPT
  2. ;  (C) Perry Alexander - Dec 1988
  3. ;  GT Power Version 1403
  4. ;  Script to Dial New PCP NetExchange
  5. ;
  6. CLEAR
  7. WRITELN " ╔═══════════════════════════════════════════════════════════════╗ "
  8. WRITELN " ║                           GTPCP 4.4                           ║ "
  9. WRITELN " ║                                                               ║ "
  10. WRITELN " ║            Attempting to connect to Net Exchange              ║ "
  11. WRITELN " ║                                                               ║ "
  12. WRITELN " ║        To Return to Terminal Mode   . . . . . Press Alt-X     ║ "
  13. WRITELN " ╚═══════════════════════════════════════════════════════════════╝ "
  14. TWAIT 4000
  15. CLEAR
  16.    BEEP
  17.    SENDLN "SET 0:0,57:1,63:0"
  18.    SENDLN "909631"
  19.    WAIT FOR "login:"
  20.    SENDLN "bbs"
  21.    SENDLN "@"
  22.    WAIT FOR "@"
  23.    SENDLN "SET 2:0,4:2"
  24.    WAIT FOR "@"
  25.    SENDLN "CONN"
  26.    ONLINE
  27.    BREAK
  28.    SENDLN "@"
  29.    WAIT FOR "@"
  30.    SENDLN "D"
  31.    WAIT FOR "CONN"
  32.    WAIT FOR "@"
  33.    CHAIN "PCP-NODE.SCR"
  34.  ~ BUSY
  35.    CLEAR
  36.    WAIT FOR "@"
  37.    WRITELN     "Retrying ════════ NetExchange "
  38.    WRITE       "Number of Attempts .....  "
  39.    WRITELN %10
  40.    WRITELN
  41.    WRITELN     "To return to Node Menu - Press [Ctl-K] "
  42.    TWAIT 2000
  43.    CYCLE 100
  44.    CHAIN "PCP-NODE.SCR"
  45.  ?
  46.    WRITE "TELENET response unrecognized :"
  47.    CHAIN "PCP-NODE.SCR"
  48. ESAC
  49.    RMWIN
  50.    CHAIN "PCP-NODE.SCR"
  51.